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ENVIRONMENT: User mode - AST reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
MODIFIED BY: 


1-001 - Original. SBL 1-April-1981 
1-002 - Use PASSSEND_READ. SBL 26-May-1982 


. 9 001 © MODULE PASSREAD_REAL_G ( ATLL Read a G_floating, value’ | ; 
: ¢ 4 {DENT = '1-00 File: PASREAREG.B32 Edit: SBL1002 : 
 £ ABET pam : 
: § 4) : leaeeeateuecenenecenenenenennnnenentertereretteteetnnernentennnetneetnntent® : 
° 7* * Hy 
3 8 Gogg 1 '* COPYRIGHT es) 1978, 1980, 1982, 1984 BY + $ 
3 009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ; 
3 + id : ~ ALL RIGHTS RESERVED. * 3 
° . ® ° 
3 \¢ pot¢ 1 '® THIS ie acca +e FURNISHED UNDER A LICENSE AND MAY BE USED AND corres * ° 
; 15 1! ONLY IN ANCE WITH THE $ SU LICENSE AND WITH T 7 3 
s 1% 0014 1 !« INCLUSION OF rHe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR HE * 3 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY * | : 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | : 
; i EA : :* TRANSFERRED. * | ; 
° Hid * ° 
; 2619 8019 1 Ie ne rr IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ‘ 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
5 $3 ope) ! :* CORPORATION. . 3 
; ' : 
3 $¢ 00 : 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * j 
g 35 4 : ; :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * | : 
e . * ° 
3 6 B0¢6 1 !* * 3 
; sf 34 ’ ‘ammenities in ata ‘ 
> 29 0029 1 ; 
3 0 0030 1 !+4+4 F 
: 1 0031 1 ! FACILITY: Pascal Language Support $ 
i 32 0052 1 | 
3 3 0033 1 ! ABSTRACT: 3 
: 34 0034 1 | : 
3 5 0035 1 This module contains procedures which read a G_floating value : 
3 “$ 0036 : from a textfile or a string. : 
: € : 
; #39 1 3 
3 40 1 : 
; 4] | 3 
: § 1 | 
i 1 | ; 
: 45 1 3 
; 46 1 : 
: 47 1 : 


-v 


Ass 


READ_REAL_G Read a G_floating value 1 
2 Declarations 1 
4 rk ! RSBTTL ‘Declarations’ 
; 2 : PROLOGUE DEFINITIONS: 

§ 0052 1 
54 005 1 REQUIRE "RTLIN:PASPROLOG'; 

5 011 1 

$ 118 1! 

119 1°! TABLE OF CONTENTS: 

8 120 1! 

59 Q121 1 
60 81 ¢ 1 FORWARD ROUTINE 
61 1 1 PASSREAD_REAL_G: CALL_VALO1 NOVALUE 
6 Oi 4 PASSREADV_REAC_G: CALC_VALO1 NOVALUE; 
64 0126 1! 
65 0127 1 ! MACROS: 
66 0128 1! 
67 0129 1! NONE 
68 0130 1! 
69 0131 1 ! EQUATED SYMBOLS: 

70 01 ; 1! 

71 01 7 NONE 

7 0134 1! 
7 0135 1 ! FIELDS: 
74 0136 1! 
75 0137 1! NONE 
76 0138 1! 
77 0139 1 ! OWN STORAGE: 
78 0140 1! 
79 0141 1! NONE 
80 0142 1! 


p=198¢ 13:51:49  EPASRIL SRC SPASREAREG-682; 1 rw ot 


—_ ; 


! Externals, linkages, PSECTs, structures 


! Read from textfile 
! Read from string 


ee a -4 
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PASSREAD_REAL_G Read a G_floating value 1b-Se “1984 02:09: AX-11 Bliss-32 V4.0-742 
2 PASSREAD_REAL_G 2 Read a G_floating value from 12286871382 95:09:28 PASRTL. RC IPASREAREG.632; 1 

; ¢ 143 1 ZSBTTL "PASSREAD_REAL_G = Read a G_floating value from textfile’ 

; 144 1 GLOBAL ROUTINE % READ _REAL_G ( 

: BG 145 1 PFV: REF SPASSPFV_FICE_VARIABLE, ! File variable 

; 5 4 1 ERROR; ! Error unwind address 

: 108 to RESULT i High order part of result 

3 : order part of resu 

; «88 149 1 ) : CACL_VALO1 NOVALUE = . : 

; 150 1 

; 90 151 1 fe4 

; 3) 8128 : FUNCTIONAL DESCRIPTION: 

3 3 Bie 1; This function reads a G_floating value from the specified textfile 

3 Se e182 : } and returns it as the function value. 

; 0157 1 ! CALLING SEQUENCE: 

; Wr 0158 1! 

3 4 3123 ! Double.wg.v = PASSREAD_REAL_G (PFV.mr.r C, ERROR. ja.rJ) 

; 100 0161 1 ! FORMAL PARAMETERS: 

; 101 0166 1! 

3 196 0165 1! PFV - The Pascal File Variable (PFV) passed by reference. 

3 it biee ; The structure of the PFV is defined in PASPFV.REQ. 

: 105 0166 1! ERROR - Optional. If specified, the address to unwind to 

; 106 0167 1! in case of an error. 

; 107 0168 1! 

: 108 0169 1 =! IMPLICIT INPUTS: 

; 109 0170 1! 

: 110 0171 1! NONE 

3 191 HE 1! 

: 16 0173 1°! IMPLICIT OUTPUTS: 

s + 0174 1! 

: (114 0175 1! NONE 

> «115 0176 1! 

; 116 0177 1 ! ROUTINE VALUE: 

: (117 0178 1! 

; #6118 0179 1! The G_floating value of the number read. 

: #119 0180 1! 

: 120 0181 1 ! SIDE EFFECTS: 

; is! Bi 1! F ‘ 

3 : § Oise ; : If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 

; 134 Binz ' SIGNALLED ERRORS: 

3 158 189 |: INVSYNREA = invalid syntax for real value 

g 4 138 } } OUTRANTYP = ‘'string’’ is outside the range of type ‘‘type’’ 

3 +4 0190 1 !-- 

; 130 0131 #1 

s 33) 136 BEGIN 

c? 9 § 19 

“9 194 LOCAL 

3; (134 195 RESULT: VECTOR C2, LONG], ! D_floating result value 

> 135 0196 DESCR: BLOCK {8 éyTe i Descriptor for convert 

-S 019 FCB: REF $PAS$FCB_CONTROL_BLOCK,! File Control block 

: 137 O38 PFV_ADDR: VOLATILE, ' Enable argument 

: «138 199 UNWIND_ACT: VOLATILE, ! Enable argument 


eee) 


-v 
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002 PASSREAD_REAL_G : Read a G_floating value from 12780-1382 95:99:28 PASRTL. RC IPASREAREG.6 2;1 m0 (3) 


1+ 
Validate PFV and get PFV. 


‘+ 
Set unwind action to unlock file. 


] 
| 
i 9 ERROR_ADDR: VOLATILE; ! Enable argument | 
4 ¢ BUILTIN 
2 ACTUALCOUNT; ! Count of arguments 
é 05 ENABLE | 
2 8 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
4 0 te 
: 0 Get ERROR parameter, if present. 
. BCTURL CoUaNT () GEQU 2 
5 ERROR_ADDR = .ERROR; ! Set unwind address 
PFV_ADDR = PFV CPFVSR_PFVI; ! Set PFV address 
5 
5 
5 
6 
6 
6 
6 
64 
6 


UNWIND_ACT = PAS$SK_UNWIND_UNLOCK; 

14 

Do common initialization. 

PASSSINIT_READ (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 


1+ 
Set up string descriptor for convert call. 


OWONAMEWN OO DNAULS WN H$OVOWDNOULS ARO 0ONO 


PMIPIPOPOPOPOPONONUNIPONoPoTononononupnory 
BHR FAWN AANA PO NPINININPONUNDY 2 OS OO OS Os 


DESCR CDSC$B_CLASS) = D 
DESCR COSCS$B_DTYPEJ = D 
: 
' 


oo co WOOO NNN NNN NNO O 


Call utility routine to find a string that looks Like an real. 
If we can't find one, signal an error. 


MOPOPOPOTOPONOPONY 


IF NOT PASSSGET_REAL (PFV CPFVSR_PFV), FCB AS pe FCB); 
DESCR CDSCS$A_POINTERJ, DESCR COSC$w_LENGTH . FCB) 


N 
SPASSIO_ERROR (PAS$_INVSYNREA,2,DESCR,.FCB CFCBSL_RECORD_NUMBER)) ; 


'¢ 
Cail convert routine. If it fails, signal an error. 


ee ee i ee ee ee 
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AUS WY ("OOO NOUS WO 


PUPP & & 


Roporororororory 


PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 
| 
| 
| 
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PASSREAD_REAL_G Read a G_floati 138% 9g: 99: 26 
2 PASSREAD_REAL_G = Read. a G_floating value from 14-Sep-1984 1 

: 138 7 IF NOT OTSSCVT_T_G (DESCR, RESULT) 

; #19 8 THEN 

: 198 P oda” * ERROR (PAS$ NOTVALTYP 3,0 EER, 

> 199 P 0260 PLIT BYTE (XCHARCOUNT(' bOUBLE ), pOveLE"), 

: oo 8 6} Uke CFCBSL_RECORD_NUMBER]); 

: og 8 8g + 

; a 64 _do end-of-READ processing. 

: $98 $566 

5 soe 8 of festene jase (PFV CPFVS$R_PFVJ, FCB CFCBSR_FCiN)); 

; $08 $566 '+ 

3 $08 ost ' Return result. 

: 210 0271 t= 

3 (att 0 ie; 

4 $i¢ 027 LO_RESULT = .RESULT 9: 

3 $} 0274 HI RESULT = .RESULT (1); 

: 214 0275 RETURN; 

s 25 0276 

s 2 0277 1 END; ! End of 


AX-11 Bliss-32 V4.0 
PASRTL.SRC PASREAREG. 5 2:1 


routine PASS$READ_REAL_G 
PASSREAD_REAL_G Read a G_floating value 
\1-002\ 


_PASSCODE,NOWRT, SHR, PIC,2 


6 
\DOUBLE\ 


PASSREAD_REAL_G 

PASSREADG REAL G 

PAS$$I1O OLER 

PAS Sei CP HAND 

PASssi NIT READS POASSSGET REAL 
PASSSSIGNAL, PASSK_ INVSYRREA 
OTS$CVT_T_G. PASSK-NOTVALTYP 
PASSSEND_READ 


PASSREAD_REAL_G, Save R2,R3,R4,R5,R6,R7,28,~; 0144 


PASSS$SIGNAL, R9 


ERROR_ADDR 
UNWIND ACT 


4$, (FP) 
(AP), Ww? 
ERROR, ERROR_ADDR 
R6, PFV_ADDR 
PASSSVACIDATE_PFV 
uNu ND_AC 

Pas INIT READ 

#270, DESCR+2 
PASS$$GET_REAL 


0192 


0212 


1 
1 
4 
4 


PASSREAD_ REAL_G pee a G_floating val 
PASSREAD_REAL_G = Re 

10 

oc 
000000006 


3; Routine Size: 


8 1 
9 1 !<BLF/PAGE> 


vw 
oo 


7E 
000000006 00 


175 bytes, Routine Base: 


m 10 


ed's G_floating value from 12: $e: 138 98: 9¢ 8 PASRTL SR SSPASREAREG 6 B32;1 


D 043 MOVL R4, DESCR+4 
B 04 MOVW = RS, ESCR 
E 48 BLBS R 
BD 04E PUSHL =-56(FCB) 
051 PUSHAB DESCR 
po 034 PUSHL # 
56 MOVZBL M#PASS$K_INVSYNREA, -(SP) 

FB O005A CALLS #4, PASSS$SIGNAL 
04 050 RET 

F 003 2$ PUSHAB RESULT 
4 bes cars, He, QISSCVT_ TG 
a Sooee BLBS 
DD 0006 PUSHL =54¢F CB) 
9F 00071 PUSHAB 
9F 00074 PUSHAB be scr 
DD 00077 PUSHL 
9A 00079 MOVZBL PPASSK NOTVALTYP, =(SP) 
FB 0007D CALLS #5, PASSS$SIGNAL 
04 00080 RET 

16 00081 3$: JSB PASSSEND_READ 

7D 00087 MOVQ RESULT, CO_RESULT 
04 00088 RET 
00 0008C 4$ «WORD Save nothing 

D0 0008E MOVL B(AP), 

DO 0009 MOV 4(RO), RO 
9F 00096 PUSHAB ERROR_ADDR 
9F 00099 PUSHAB UNWIND_ACT 
9F 0009C PUSHAB PFV_ADBR 
DD 0009F PUSHL #3 
DD O00A1 PUSHL 
7D 090A3 MOVQ 4(AP), -(SP) 
FB OOOA7 CALLS #3, PASS$$IO_HANDLER 
04 OOOAE RET 


_PASSCODE + 0007 


-v 
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A008 PASSREADO_REAL._Ge Read a G_floating from string 13-808-1 982 95:90:28 PASRTL. RESPASREAREG 62:1 - ab 

H 0 0 1 XZSBTITL 'PASSREADV_REAL_G- Read a G_floating from string’ 

s 1 1 1 GLOBAL ROUTINE PASSREABV_REAL.G ( 

3 ¢ Be 1 NE_DSC: REF VECTOR C, BYTE), ! Line descriptor 

; 1 . ! Error unwind address 

; 4 0284 1 LO_RESULT, ' Low order part of result 

: 5 8 85 1 HI RESULT ! High order part of result 

; § 8 86 ! ) : CACL_VALO1 NOVALUE = 

: 228 0288 1 !++ 

: $3 8 34 : FUNCTIONAL DESCRIPTION: 

; 3! 0291 1 i This function reads a G_floating from the specified string 

: 3 8 3 ; and returns it as the function value. 

; 34 0 94 i CALLING SEQUENCE: 

; 234 0996 ; Double.wg.v = PASSREADV_REAL_G (LINE_DSC.mq.r C, ERROR. ja.rJ) 

3 338 0298 | FORMAL PARAMETERS: 

; 240 0300 1! LINE_DSC - The string to read from, passed as a class S$ 

> 241 0301 1! (assumed) descriptor. fhe Length and pointer 

: 38 B06 ! are updated to reflect the unread string. 

: 264 0304 1! ERROR - Optional. If specified, the address to unwind to 

; Sr? B02 ; th case of an arrer. sate 

; g47 0307 t IMPLICIT INPUTS: 

> 249 0309 1 NONE 

3; 250 0310 1! 

: $2 bait : IMPLICIT OUTPUTS: 

; $28 O33 1 | NONE 

3; 254 0314 1! 

; $22 Bsa ’ ROUTINE VALUE: 

; 337 0317 : The value of the G_floating read. 

3 239 0319 i SIDE EFFECTS: | 

; $e 0321 1! NONE | 

3 o¢ B36 1! 

: 363 0323 1 { SIGNALLED ERRORS: | 

3 265 0325 1! NONE | 

: 206 0326 1! 

; 367 0327 1 i-- 

; 268 0328 1 | 

: $99 hy 3 BEGIN 

; ari 0531 A | 

: 272 3 4 PFV: SPASSPFV Fite VARIABLE. ' Pascal File Variable 

3 273 033 ARG_LIST: VECTOR C2, LONG), ' Argument List 

3 276 334 PFV_ADDR: VOLATILE, ' Enable argument 

: 275 335 UNWIND_ACT: VOLATILE, ! Enable argument 

; 276 336 ERROR_ADDR: VOLATILE; ! Enable argument 
| 
| 
| 
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PASSREAD_REAL_G Read a G floating value 16-Se -1984 02:00:2 AX-11 Bliss-32 V4.0-74 Page 
at PASSREADU_REAL.Ge Read a G_floating from string 12286871382 95 :09:2 PASRTL.SRCJPASREAREG.B32; 1 ~ ab 
3; 277 0337 
: $f5 6339 Burt TE CTUAL COUNT ! Count of : | 
3 : ! Count of arguments 
; 280 0340 . 
; 281 0341 ENABLE 
; a6 8 tg PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
: 284 0344 14 | 
; 285 0345 ! Get ERROR parameter, if present. 
; 286 0346 i. 
3; ger 0347 
: 88 tnt IF ACTUALCOUNT () GEQU 2 | 
; 289 0349 
; $30 B30 ERROR_ADDR = .ERROR; ! Set unwind address 
| 
: $36 0326 2 PFV_ADDR = PFV CPFVS$R_PFVI; ! Set PFV address 
; 2 0353 2 
; 294 0354 2 1+ 
; 295 0355 2 ' Set up ARG_LIST. 
; 296 0356 2 le 
H 44 0357 2 
: 298 0358 2 ARG_LIST £0} ei; ! One argument 
; 299 0359 2 ARG_LIST £1] = PFV CPFVSR_PFV); | PFV address 
; 300 0360 2 
; 301 6361 2 14 
3 we 0362 2 ' Call PAS$$DO_READV to do the work, giving it the address of 
; wos 0363 2 ! PASSREAD_REAC_G to call. 
; 304 0364 2 te 
; 305 0365 2 
: 306 0366 2 PAS$SDO_READV (PFV CPFVSR_PFV], LINE_DSC CO], ARG_LIST, PASSREAD_REAL_G; 
: 307 0367 2 LO_RESULT, HI_RESULT); 
; 308 0368 2 
; 309 0369 2 RETURN; 
3; 5 0370 2 
; OT 0371 1 END; ! End of routine PAS$READV_REAL_G | 
.EXTRN PAS$$DO_READV | 
005C 00000 ENTRY PASS$READV_REAL_G, Save R2,R3,R4,R6 : 0281 | 
5E 20 C2 00002 SUBL2 #32, SP : 
7E 04 00005 CLRL ERROR_ADDR ; 0329, 
6 AE 7C 00007 CLRQ UNWINB_ACT : 
6D 0030 CF DE QO00A MOVAL 2$, (FP) : 
02 6C 91 OO00F CMP AP), #2 ; 0348 
04 1F 00012 BLSSU : 
6E 08 AC DO 00014 MOVL ERROR, ERROR_ADDR ; 0350 
08 AE 14 AE 9 0018 1$: MOVAB FV, PFV_ADDR : 0352 
OC AE 01 D0 0001D MOVL Wi, A ST : 0358 | 
10 AE 14 AE 9E oe) MOVAB PFV, ARG_LIST+4 : 0359 | 
54 FF27 CF 9E 00026 MOVAB PASSREADTREAL_G, R4 : 0366 | 
53 OC AE 9E 00028 MOVAB ARG_LIST, R3 ; 
56 14 AE 4 Bay F MOV PFV, R 3 
52 04 AC 00 00033 MOVL LINE DSC, R2 ; 
000000006 00 16 00037 JSB_-—- PASSSDO_READV ; | 
04 00030 RET ; 0371 | 


PASSREAD_REAL_G Read a G_ floating value 16-5 Sep-1 AX-11 Bliss-32 V4.0-74 Page 9 my 
1-002 PASSREAGO REAL ‘ee Read a G_floating from string 1 308-138 93: 99: § PASRTL.SR ROIP PASREA LAREG 89251 . (4) 
000 3 28: . WORD ave nothin : 0329) 
50 08 AD i HOVE bth APR . | 
4 A tS 4 MOVL PR. 5 
pf A 48 PUSHAB ERROR ADDR : 
E AQ OF 048 USH UNWINB_ACT : 
E4 aC +4 04E PUSHAB PFV_ADBR : 
9 005 PUSHL #3 ; 
E DD 005 PUSHL SP ; 
7E 04 a D 0005 MOVQ G(AP), =-(SP) ; 
000000006 00 0 B 00059 CALLS #3, PAS$$IO HANDLER 3 
be 00060 RET 3 


; Routine Size: 97 bytes, Routine Base: _PASS$CODE + 0086 


; 3g 0372 1 
; 3 0375 1 !<BLF/PAGE> 


Tae Cite a eer er we cs 


Lexemes/CPU-Min: 13751 
ponecy Used: 86 pages | 
Compila 


tion Complete 
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1-002 PACSRE EADY REAL ‘6 Read. a G_floating from string 14- =Sep- 1386 93: 9¢: 8 PASRTL.SRC PASREA eG B82; 1 (5). 
: 316 0375 ! END ! End of module PASSREAD_REAL_G | : 
39 76 0 ELUDOM | 
; PSECT SUMMARY | 
: Name Bytes Attributes | : 
: PASSCODE 279 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 
| : 
3 Library Statistics | 
RA sr a st Eo Symbols -<-<--~=-- Pages Processing ; 
5 File Total Loaded Percent Mapped Time : 
:  $255$DUA28: : ESYSLIBISTARLET 32: 1 9776 6 0 581 00:01.1 | ; 
3 ~$255$DUA28:CPASRTL.OBJIJPASLIB.L32;1 427 100 23 33 00:00.4 : 
| o 
oat 
ae) 
; COMMAND QUALIFIERS | : 
; BLISS/CHECKS (FIELD, INITIAL OPTIMIZE) /MOTRACE/L ISL 158: PASREAREG/08J=0B/5 : PASREAREG MSRC$:PASREAREG/UPDATE=(ENH$: PASREAREG i 
Size: 272 code + 7 data bytes : 
Run Time: 00:07.3 : 
Elapsed Time: 09:49-0 : 
Lines/CPU Min: 077 : 
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